home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / swag / delphi.swg / 0234_Changing Wallpaper.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-03-04  |  787 b   |  45 lines
  1. program wallpapr;
  2.  
  3. uses
  4. Registry, WinProcs;
  5.  
  6. procedure SetWallpaper(
  7. sWallpaperBMPPath : String;
  8. bTile : boolean );
  9. var
  10. reg : TRegIniFile;
  11. begin
  12. //
  13. // change registry
  14. //
  15. // HKEY_CURRENT_USER
  16. //   Control Panel\Desktop
  17. //     TileWallpaper (REG_SZ)
  18. //     Wallpaper (REG_SZ)
  19. //
  20. reg := TRegIniFile.Create(
  21. 'Control Panel\Desktop' );
  22. with reg do
  23. begin
  24. WriteString( '', 'Wallpaper',
  25. sWallpaperBMPPath );
  26. if( bTile )then
  27. begin
  28. WriteString( '', 'TileWallpaper', '1' );
  29. end else
  30. begin
  31. WriteString( '', 'TileWallpaper', '0' );
  32. end;
  33. end;
  34. reg.Free;
  35. //
  36. // let everyone know that we changed
  37. // a system parameter
  38. //
  39. SystemParametersInfo( SPI_SETDESKWALLPAPER,
  40. 0, Nil, SPIF_SENDWININICHANGE );
  41. end;
  42. begin
  43. SetWallpaper( 'c:\winnt\winnt.bmp', False );
  44. end.
  45.